From: Mauro Aranda <maurooaranda@gmail.com>
Date: Thu, 6 Mar 2025 08:45:50 +0000 (-0300)
Subject: Fix some widgets in customize-dirlocals
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~226
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=93ac2cb742f6fb90a36d758617cecb36c3d33e46;p=emacs.git

Fix some widgets in customize-dirlocals

* lisp/cus-edit.el (custom-dynamic-cons-value-create): Make sure
to eval the keymap property.  (Bug#76756)
---

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 91e77c7af47..2ecae541fed 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -5918,7 +5918,7 @@ The appropriate types are:
          (val (car value)))
     (cond
      ((eq val 'mode) (setf (nth 1 args)
-                           '(symbol :keymap custom-dirlocals-field-map
+                           `(symbol :keymap ,custom-dirlocals-field-map
                                     :tag "Minor mode")))
      ((eq val 'unibyte) (setf (nth 1 args) '(boolean)))
      ((eq val 'subdirs) (setf (nth 1 args) '(boolean)))
@@ -5927,7 +5927,7 @@ The appropriate types are:
         (when (custom--editable-field-p w)
           (widget-put w :keymap custom-dirlocals-field-map))
         (setf (nth 1 args) w)))
-     (t (setf (nth 1 args) '(sexp :keymap custom-dirlocals-field-map))))
+     (t (setf (nth 1 args) `(sexp :keymap ,custom-dirlocals-field-map))))
     (widget-put (nth 0 args) :keymap custom-dirlocals-field-map)
     (widget-group-value-create widget)))